home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 4 / CU Amiga Magazine's Super CD-ROM 04 (1996)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1996-11].iso / magazine / psion / utils / drivers.lzx / ps.ini < prev    next >
Text File  |  1979-01-16  |  2KB  |  67 lines
  1. /psd 100 dict def
  2. /PR {psd begin
  3. dup 0 eq {pop -.2 -.2 scale -90 rotate}{.2 .2 scale 0 exch translate}ifelse
  4. 2.4 setlinewidth /fst 0 def 0 12 F V /so save def}def
  5. psd begin
  6. /ft [
  7. 0 [/f0n /f0b /f0i /f0x]
  8. 8 [/f8n /f8b /f8i /f8x]
  9. 24 [/f24n /f24b /f24i /f24x]
  10. 56 [/Symbol dup dup dup]
  11. ] def
  12. /S {dup /fst exch def ft fti get exch get
  13. findfont fsi 5 mul scalefont setfont}bind def
  14. /U {/ul 1 def}bind def
  15. /V {/ul 0 def}bind def
  16. /F {/fsi exch def 0 2 ft length 1 sub
  17. {dup ft exch get 2 index eq{1 add /fti exch def exit}{pop}ifelse}for
  18. fst S}def
  19. /NP {showpage so restore /so save def}def
  20. /PS {so restore end currentfile closefile}def
  21. /M {neg moveto}bind def
  22. /R {0 rmoveto}bind def
  23. /D {neg 0 exch rmoveto}bind def
  24. /P {ul 1 eq{currentpoint 2 index show currentpoint gsave newpath
  25. 4 sub moveto 4 sub lineto stroke grestore pop}{show}ifelse}def
  26. /BD {fsi .6 div D}def
  27. /BU {fsi .6 div neg D}def
  28. /CP850 [
  29. 128 /Ccedilla/udieresis/eacute/acircumflex/adieresis/agrave/aring/ccedilla
  30. /ecircumflex/edieresis/egrave/idieresis/icircumflex/igrave/Adieresis/Aring
  31. /Eacute/ae/AE/ocircumflex/odieresis/ograve/ucircumflex/ugrave/ydieresis
  32. /Odieresis/Udieresis/cent/sterling/Oslash/multiply/florin/aacute/iacute
  33. /oacute/uacute/ntilde/Ntilde/ordfeminine/ordmasculine/questiondown/registered
  34. /logicalnot/onehalf/onequarter/exclamdown/guillemotleft/guillemotright
  35. 181 /Aacute/Acircumflex/Agrave/copyright
  36. 189 /cent/yen
  37. 198 /atilde/Atilde
  38. 207 /currency/eth/Eth/Ecircumflex/Edieresis/Egrave/dotlessi/Iacute
  39. /Icircumflex/Idieresis
  40. 221 /brokenbar/Igrave
  41. 224 /Oacute/germandbls/Ocircumflex/Oacute/otilde/Otilde/mu/thorn/Thorn/Uacute
  42. /Ucircumflex/Ugrave/yacute/Yacute/macron/acute/minus/plusminus/underscore
  43. /threequarters/paragraph/section/divide/cedilla/ring/dieresis/dotaccent
  44. /onesuperior/threesuperior/twosuperior/bullet/underscore
  45. ] def
  46. /re {
  47. findfont begin currentdict dup length dict begin
  48. {1 index /FID ne {def}{pop pop} ifelse}forall
  49. /FontName exch def CP850 /Encoding Encoding 256 array copy def 0 exch
  50. {dup type /nametype eq
  51. {Encoding 2 index 2 index put pop 1 add}{exch pop}ifelse
  52. }forall
  53. pop currentdict dup end end /FontName get exch definefont pop
  54. }bind def
  55. /f0n /Courier re
  56. /f0b /Courier-Bold re
  57. /f0i /Courier-Oblique re
  58. /f0x /Courier-BoldOblique re
  59. /f8n /Helvetica re
  60. /f8b /Helvetica-Bold re
  61. /f8i /Helvetica-Oblique re
  62. /f8x /Helvetica-BoldOblique re
  63. /f24n /Times-Roman re
  64. /f24b /Times-Bold re
  65. /f24i /Times-Italic re
  66. /f24x /Times-BoldItalic re
  67.